home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_5994.txt < prev    next >
Text File  |  1988-09-28  |  4KB  |  224 lines
  1. -- card: 5994 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Files
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port,b
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     if b<>1 then
  12.       put empty into reslts
  13.       repeat 3
  14.         put recvUpTo(port,return,2,false,false) into newIn
  15.         put newIn after reslts
  16.       end repeat
  17.       if "key to continue..." is in reslts then put 1 into b
  18.       if the length of reslts >0 then
  19.         put reslts after card field 1
  20.         put the rect of card field 1 into fieldRect
  21.         put ( item 3 of fieldRect) - 5 into horizCoord
  22.         put (item 4 of fieldRect) - 17 into vertCoord
  23.  
  24.         click at horizCoord,vertCoord
  25.       end if
  26.     end if
  27.   end if
  28. end idle
  29.  
  30. on closecard
  31.   put empty into card field 1
  32.   put 0 into b
  33. end closecard
  34.  
  35. on opencard
  36.   put empty into card field 1
  37.   put 0 into b
  38. end opencard
  39.  
  40.  
  41. -- part 1 (field)
  42. -- low flags: 00
  43. -- high flags: 0007
  44. -- rect: left=28 top=64 right=315 bottom=509
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 4
  49. -- text size: 9
  50. -- style flags: 0
  51. -- line height: 12
  52. -- part name: 
  53.  
  54.  
  55. -- part 2 (button)
  56. -- low flags: 00
  57. -- high flags: 8004
  58. -- rect: left=35 top=317 right=339 bottom=135
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Yes
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   global port
  70.   sendSPort port,false,"y"&return
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 3 (button)
  76. -- low flags: 00
  77. -- high flags: 8004
  78. -- rect: left=278 top=317 right=339 bottom=378
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Continuous
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   global port
  90.   sendSPort port,false,"c"&return
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 4 (button)
  96. -- low flags: 00
  97. -- high flags: 8004
  98. -- rect: left=155 top=317 right=339 bottom=255
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: No
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   global port
  110.   sendSPort port,false,"n"&return
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 5 (button)
  116. -- low flags: 00
  117. -- high flags: 8004
  118. -- rect: left=396 top=25 right=62 bottom=490
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Quit/Done
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   pop card
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 6 (button)
  135. -- low flags: 00
  136. -- high flags: 8004
  137. -- rect: left=393 top=317 right=339 bottom=493
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Download
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   put "Drag of the NAME of the file you wish to download"
  149.   show button "get it!"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 7 (button)
  155. -- low flags: 80
  156. -- high flags: 8004
  157. -- rect: left=91 top=25 right=64 bottom=395
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Get it!
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   global port
  169.   if the selection <> empty then
  170.     sendSPort port,false,"d"&return
  171.     put the selection
  172.     wait 20
  173.     sendSPort port,false,the selection&return
  174.     wait 10
  175.     sendSPort port,false,"2"&return
  176.     RECX
  177.   else answer "No file selected"
  178.   hide msg
  179.   hide target
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 8 (button)
  185. -- low flags: 00
  186. -- high flags: 8003
  187. -- rect: left=0 top=295 right=340 bottom=30
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 6720 / 6720
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: <cr>
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   global port
  199.   sendSPort port,false,return
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part contents for background part 4
  205. ----- text -----
  206. Mon, Jul 11, 1988
  207.  
  208. -- part contents for background part 5
  209. ----- text -----
  210. 9:01 PM
  211.  
  212. -- part contents for background part 1
  213. ----- text -----
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220. Tue, Jul 12, 1988, 4:38 PM
  221.  
  222. -- part contents for background part 3
  223. ----- text -----
  224. Mon, Jul 11, 1988, 3:43 PM